home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aac.d64 / roads'main.l < prev    next >
Text File  |  2007-02-28  |  564b  |  23 lines
  1. 0010 PRINT CHR$(147),CHR$(14),
  2. 0020 PRINT "├ONVERSION OF A NUMBER."
  3. 0030 DIM RES$ OF 80 // ╘HIS STRING WILL
  4. 0040 // CONTAIN THE RESULT OF THE CONVERSION
  5. 0050 FLAG:=TRUE // ╞LAG TO RECOGNIZE
  6. 0060 // INCORRECT INPUT
  7. 0070 REPEAT 
  8. 0080   PRINT 
  9. 0090   IF FLAG=FALSE THEN
  10. 0100     PRINT "┼RROR! ┴GAIN"
  11. 0110   ENDIF 
  12. 0120   INPUT "╬UMBER ?": NUMBER
  13. 0130   INPUT "╔N ┬ASE ?": BASE#
  14. 0140   FLAG:=FALSE
  15. 0150 UNTIL BASE#>1 AND BASE#<37
  16. 0160 IF NUMBER<0 THEN
  17. 0170   NUMBER:=ABS(NUMBER)
  18. 0180   RES$:="-"
  19. 0190 ENDIF 
  20. 0200 CONVERT(NUMBER,BASE#,RES$)
  21. 0210 PRINT 
  22. 0220 PRINT RES$
  23.